Remove hard-coded googleapis font URL

Bug: https://github.com/haskell/haddock/issues/1211
Bug-Debian: https://bugs.debian.org/963690

Gbp-Pq: Name haddock-remove-googleapis-fonts

diff --git a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
index dae6e50f7fea87c1d130c08f7c0d8dd261e9cf32..96483d5090ef1f29a3b8b1b7e23baea87c501e63 100644 (file)
--- a/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/utils/haddock/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -152,7 +152,7 @@ headHtml docTitle themes mathjax_url base_url =
                 , thetype "text/css"
                 , href (withBaseURL base_url quickJumpCssFile) ]
              << noHtml
-    , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml
+    -- , thelink ! [ rel "stylesheet", thetype "text/css", href fontUrl] << noHtml
     , script ! [ src (withBaseURL base_url haddockJsFile)
                , emptyAttr "async"
                , thetype "text/javascript" ]
@@ -161,7 +161,7 @@ headHtml docTitle themes mathjax_url base_url =
     , script ! [src mjUrl, thetype "text/javascript"] << noHtml
     ]
   where
-    fontUrl = "https://fonts.googleapis.com/css?family=PT+Sans:400,400i,700"
+    -- fontUrl = "https://fonts.googleapis.com/css?family=PT+Sans:400,400i,700"
     mjUrl = fromMaybe "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js?config=TeX-AMS-MML_HTMLorMML" mathjax_url
     mjConf = unwords [ "MathJax.Hub.Config({"
                      ,   "tex2jax: {"